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module ink procslib ( ! OBJECT LIBRARY PROCESSING 


ident = ‘'v04-000', 
pderees ing_noce (external = general, nonexternal = long_relative) 


begin 
Ve ReR RRR ARERR RARARARA AAA EREE EEE TERETE ETRE AAAEREEREAEEEEEEEEAEEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: C ON 0 NOTICE, SOF Tw Y _OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
& orppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: LINKER 
ABSTRACT: ROUTINES TO DO ALL PASS 1 OBJECT LIBRARY PROCESSING 
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| ENVIRONMENT: VMS NATIVE MODE 

AUTHOR: T.J. PORTER, CREATION DATE: 16-MAY-77 

! MODIFIED BY: 

v03-011 JwT0168 Jim Teague 21-Mar-1984 
LBRSSEARCH wiht now return a gtgtve other than true, 


so when the Linker returns a 0 from LNKSADDIMAGE to 
oree re library search, it 
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i tha ropagated all the way back through the 

LBRSSEARCH call. af . 

i V03-010 ywT0099 Jim Teague 14-Mar-1983 
: New CLI interface. 
5 i v03-009 swT0063 Jim Teague 26-0c t-1982 
: : Correct bug in shareable image name manipulation. 
5 i V03-008 JwT0044 Jim Teague 30-Jul-1982 
5 ! en file performance boost. Also correct weak 
5 : shr-img-symbol bug. 
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NK_PROCSLIB 16-Sep-1984 00:21:45 AX=11 Bliss-32 V4.0-74 Page 
| ¥O4=000 1a-8ep- 38 99:20:42 LINKER. SRCJLNKPROLIB.B32; 1 ° af 

rs 00 1! : 
- $89 1] v03-007 8LS0170 Benn Schreiber 13-Apr-1982 ‘ 
; <1 ped : Beef up error handling from lbr$ calls | ; 
> 6 0066 | 03-006 BLS0159 Benn Schreiber 17-Mar-1982 ; 
; 449 . 4 Also check for angles in directory spec ‘ 
> 64 064 1! ; 
: 65 0065 1 i-- | ; 
: 66 O66 1 i ; 
> 67 0067 1 | INCLUDE FILES: | ; 
; 68 0068 i 
; 20 0070 Library "STARLETL32'; ! STARLET DATA STRUCTURES | : 
: , 0072 require "PREFIX’; ! GENERAL DEFINITIONS ; 
; 2 0188 | Library "DATBAS*; ! INTERNAL DATA BASE | ; 
a, Ota ot By ned oy 1 CONVERT TIRE_TO_ BINARY : 
° n n «e . . 
; % 8136 : LnkSadd mage; ! ADD SHAREABLE IMAGE TO CLUSTER LIST ‘ 
: 80 O19 1 ; 
; 8 0195 1 | EQUATED SYMBOLS: ; 
pa 0197 1 global Literal 
Ps oba era ‘ 
> 84 0198 1° Lnk$k_libblocks = 10 : short; ! NUMBER OF BLOCKS IN A WINDOW : 
: 85 0199 1 i OF A LIBRARY ; 
: 86 0200 1! | : 
: 87 0201 1 ! EXTERNAL REFERENCES: : 
; 688 020¢ 1 i ; 
; «89 0205 1 external Literal : 
: BBL Hib teret=. Fone kau 7 
: 9 $508 1 LinScLibt ind, i FIND FAILURE IN LIBRARY 
es @ 0207 1 Lin$-Libnaming, i ILLEGAL MODULE NAME LENGTH 
; 94 O505 1 Lin$_nosuchmod, ' MODULE NOT IN LIBRARY ERROR 
3 44 030 : Lin$_readerr; ! READ ERROR 
; 11 
2 ees Bia eo eee Fe ae gaan 
> 100 0214 1 inkSglncurt il : ret bleck Ea byte ‘ i POINTER TO CURRENT (LIBRARY) FILE DESCRIPTOR 
HRB | REatSenciag er block Co syeeds | GauMTgS SUE ME futbyon espero | 
: 198 9 | tnksatne luteee, i TREE HEAD OF CLUSTER TREE | 
: 104 18 ink§gt-Lastc lu : ref block C, byte), POINTER TO LAST CLUSTER DESCRIPTOR | 
: 106 : 1 inkSourn fsyns + word, i NUMBER OF UNDEFINED SYMBOLS 
: 107 Lnk§gl-ob recs ; NUMBER OF RECORDS PROCESSED 
; n “pass : byte, 1 
: 109 6 § ink$al rab : block Crab$c_bin, byte); i RAB TO USE FOR READS | 
: 111 5 1 external routine 
OM : jE aaliecree Sonate me | 
4 r nd, H 
> 114 8 1 Lbr$set_module, i READ MODULE HEADER 
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en 
if .lnk$gw_nudfsyms eql 0 then return true; 
iv: elnk$gl_curfil Cfdb$v_libextr) 


LIST, SEARCHING MODULE NAM 
IF FOUND PROCESSING THE MODULE 
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begin 
local 
moduleptr, 
eoaseere 
sta 
keydesc : block os -§ sbln, byte], ! STRING DESCRIPTOR 
nextsym : ref block L byt $)- ' NEXT UNDEFINED SYMBOL IN LIST 
modulerfa : block (6, by e ' FILE ADDRESS OF FIRST RECORD OF 
' THE ASSOCIATED MODULE. FIRST 4 
' BYTES ARE VBN, FOLLOWED BY THE 
ino ! OFFSET INTO BLOCK 
arglist : ref block C, byte); 
auxfnb = Link$gl_curfil Cfdb$t_auxfnb] : block Cnam$c_bin 
1 AUXILLIARY FIL E BLOCK 
if not .lnk$gl_curfil Cfdb$v_libextr) ! IF NOT EXTRACTING SPECIFIC MODULES AND 


! THERE ARE NO UNDEFINED SYMBOLS 
! IF THIS IS INCLUSION OF EXPLICITLY 
PePsol. Libsym = ! INVALIDATE PS ee SYMBOL 

status = lbr$set_ ~~ me (Zref (.ink$gl_ curtil Cfdb$w_ifil]), modnamindex); 


SET TO LOOK AT MODULE NAME INDEX 
moduleptr = Lnk Sot. curfil oa _omdlstJ; 
ink$gl_ curfillfdb$t “omdlst 


if not .status 
then 
begin 
signal (lLin$_readerr, 1, Lnk$gl_ said in ate db$q_f l\enene sStotue): 


return true; T ABORT THE LINK, THO 
end; 


NOW LOOP, GRABBING THE ene fo MODULE NAME IN THE LINKED 


TABLE FOR THAT MODULE THEN, 


mate -moduleptr neq 0 ' THAT IS WHILE THERE 
° 
he 


! REMAINS MORE TEXT ON THE 
nextptr_= .(.module 


r) PY 
keydescdsc$u_ lcearkl © ‘  madslogtess) 8>; 
keydesc dscSa, pointers =  & oe + 5; 
-keydesc Cdsc$w_lengthi e ' 60 GET NEXT NAME (ALLOWING 
or .keydesc (dSc$w tenetk) - synsc_ max ing 
CLI-TO USE THE LIBRARY HEADER BUFFER) 


! CHECK A VALID NAME 
keydesc fdses iw length, keydesc dsc$w hongsn 2) i 
keydesc Cdsc$w_length) = sym$c_maxing; |! ILLEGAL LENGTH, SET TO MAXIMUM 


end; 
if ast (status = Lbr$lookup_key (Zref (.lnk$gl_curfil Cfdb$w_ifi]), 
' LOOKUP TRE MODULE NAME~ 


begin 
signal (Lins hibnening. ¢ 


! AND ISSUE ERROR IF AN 


keydesc, modulerfa)) 


H 6 
re) Naa 19-8 ~ 138% 99: ¢}: $3 AX-11 Bliss-32 V4.0 Page 
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3s 26 75 4 | 

; 26 6 begin 

> 264 7 f .status eql Lbr$_keynotfnd 

; 265 8 then 

; 7 signal (Lin$_nosuchmod, 2 Reyes Cdsc$w_length], 

: 44 9 ink$gl_curfil Cfdb$q_filename 

: , 8 ¢ ** signal (Lin$S_readerr, 1, (nk$gl_curfil Cfdb$q_filename], .status, .lbr$gl_rmsstv); 

; en 

3 er 0384 4 else | 

. of 0385 begin 

: a 8 $ gk OO Seren Cfdb$v_imglib) ! IF THIS IS SHR IMG STB LIBRARY | 

; e 8 . ‘ Lnk$addimage (keydesc, modulerfa) ! THEN JUST ADD TO THE CLUSTER LIST 

; 5e 

: er? 0390 6 begin 

3: 278 0391 6 savedrecount = .lnk$gl_objrecs; ! SAVE CURRENT RECORD COUNT 

3; 279 $338 6 Lnk$gl_nmodsexp = .Lnk$ t _nmodsexp + 1; COUNT ONE MORE EXPLICITLY EXTRACTED 

3 rs ORe7 ° inkSpotntob} (modulerfa);~ |! FOUND IT SO GO POINT TO 

: 28 0395 6 if not Loncerecess) (modulerfa) then return A pees ! THE MODULE IN THE LIBRARY 

; 28 0396 6 ink$gl_librecs = .lnk$gl_ Librecs + -inkeet gb) rec 

; 84 0397 6 ' ACCUMULA TRE UNSER OF RECORDS 

; 285 Bee g -savedrecount; i FOUND iN E BRARIES 

5 My] 0399 end; 

3; 2 0400 4 

: 288 0401 4 UnkSdeaibtk(. keydesc(dsc$w_length]+5, .moduleptr); 

: 289 Bes 4 moduleptr = .nextptr; 

: 290 0405 3 end; 

; 3s Beee end; ! AND PROCESS IT 

; 3 0406 2 | NOW CHECK WHETHER THIS LIBRARY IS TO BE SEARCHED FOR 

; 235 ot 44 1 CURRENTLY UNDEFINED SYMBOLS. EXIT NOW IF NOT 

: 96 0409 if .lnk$gl_curfil Cfdb$v_libsrch] ! IF A SYMBOL SEARCH REQUIRED 

| a Bh 

: 99 Belg Presa lL_curfil Cfdb$v_newudf] = false; ' RESET UNDEFINED SYMBOLS Sd 

; 00 a} gstmisscnt = 0; ' RESET COUNT OF SYMBOLS NOT FOUN 

: 301 414 nextsym = stokSel jug i START AT TOP oF LIST, 

; 0¢ 0415 status = Lbr$se redex ‘thret (.ink$gl_curfil CfdbSw_ifid) stnamindex) ; 

; 30 416 ' LOOK IN GCOBAL SYMBOL INDEX 

: 304 41 if not .status 

3 5 ci8 then 

: 419 4 begin 

s 3 420 4 signal (Lin$_readerr, 1, Ink$gl_ curtyt tt¢ db$q f hon name), .status); 

; 308 1 4 return true; ; Sa ROR THE LINK - THO 

: 4 : ¢ end; 

: i 4 : A -lnk$gl_curfil Cfdb$v_imglib] ' IF THIS IS SHR IMG STB LIBRARY 

3 en 

3 ig § 4 begin 

3 «6314 4 while .nextsym neq Lnk$gl_udflst do | 

i 3g 155 biad” | 

3 n 

: 13 430 nextsymnam = .nextsym -_.nextsym Csym$b_naming] - snb$c_fxdlen : block C, byte); 

; (318 0431 if not .nextsym Csym$v_weak] 
| 
| 
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-_ 
bl Pdsc$u. Length] _= .nextsym Csym$b cage iF 


keydesc [dsc$a_pointer] = nextsymnam CsnB$t_name 
if (status = Lbr$lookup_key pacers - Lnk$gl pene Cfdb$w_ifi]), keydesc, modulerfa)) 
IF SYMBOL SIN LIBRARY 
wanes a 
stetus = lor$search (tref (, {, inksal. curfil bi apeu. ifiJ]), modnamindex, 


THE MODULE N 
modulerfa, UnkSaddina ty 
if (mot .status) and (.status neq lnk$k_stopsearch) 


then 
‘ signal (Lin$_readerr, 1, (nk$gl_curfil Cfdb$q_filename], .status); 
n 
else 
if .status neq lbr$ ata 
then 


signal (Lin$_readerr 
Lnk$gl_curfil fabsa. filename], .status, .lbr$gl_rmsstv); 


end; 
seateue = .nextsym Csym$l_udflink]; ! LINK TO NEXT UNDEFINED SYMBOL 
en 
end 
else 
while .lnk$gw_nudfsyms neq 0 ' WHILE IT CONTAINS SOME UN- 
' DEFINED grec. $ T 
and (if Slakeet. Libsym = -Mextsym) fd, sonnet udflst ' NEXT ENTRY. HOWEVER 
then tru THE LIS re AD 
else if net -lnk$gl_curfil Ctdbsy +A AND THIS FILE pie NOT ADD 
else, false MORE UNDEFINED SYMBOLS-WE ARE DONE 
else 
begin, ! ff IT DID ADD MORE, 
ink$gl_ ibeye © -lnk$gl_li ose Esynsl_ udft inka; "7 TOP ENTRY IN LIST 
ink$gl—curfil Cfdb$v -newudt se; ' SET THE UNDEFINED SYMBOLS CONTRIBUTED FL 
true ! AND CONTINUE The 
end 
‘ ) ' SEARCH 
° 
begin ' FOR A SYMBOL ON THE 
bind 


Libsymnam = .lnk$gl_libsym - “bnksal ot Libsym @ Leyes. naming] - snb$c_fxdlen : block C, byt 


keydesc bdscéu. Lengthd = oinkSel. Libsym gsymso 4 naming); ! MAKE STRING DESCRIPTOR FOR NAME 
keydesc Cdsc$a_pointer) = lLibsymnam — t_name] i 
nextsym = .lnk$gl_lLibsym Csym$l_udfl UNDEFINED LIST AND 


if (.lnk$gl_ tibsye Coyasu. fhags and gsy$n. weak) Here ! PROVIDED IT IS NOT A WEAK 
and not™.\nk gl_libsym Csym v. stat ss EFERENCE AND THAT WE 

then E NOT BEFORE FAILED TO 

FIND IT IN THIS UTBRAR Y, 


LNK_PROCSLIB 
V04=000 


; 6 489 4 

: Br 490 2 

; 378 491 

; 379 136 4 

: 50 49 

; 1 494 

3 Hf 495 

: 8 49 

; 384 49 

; 385 49 

3; 386 49 

3 44 2 0 

s 1 

: 389 206 

; 390 50 

: 391 504 

3 4 505 4 

; 39 8206 : 

3 394 050 

: 395 0508 5 

; 396 0509 5 

; 397 0510 ? 

; 398 0511 

; 399 b31¢ 5 

; 400 0513 5 

3; 401 0514 5§ 

; 40 0515 5 

; 40 0516 4 

: 404 0517 

: 405 0518 

; 406 0519 ! 
; 407 0520 ! 
3; 408 0521 ! 
; 409 05 ; ! 
; 410 05 ! 
; «6411 0524 

; $i¢ 0525 

: 41 05 § 

: 414 05 

: 415 82 8 

; ois 529 

3 41 Be 0 

; 418 531 

3: 619 5 § 

5 +39 5 

43) 336 

3 138 536 (1 


58 45 2— 3A 59 52 41 
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P g LN 
208 12) vo 


if (status = Lbr$lookup_key (ref bs gaPee lL_curfil Cfdb$w_ifi]), keydesc, modulerfa)) 
ch ! GOL THE SYMBOL 
*, 
begin ' RETURN RECORD'S FILE apone ss 
Ln Sql. nmodsrch : ac gnksaln nmodsrch + 1; ! COUNT THE eueee al MODULES 
savedrecount = .Lnk$gl_objrecs; ! SAVE CURRENT RECORD COU 
Lnk$pointob (nodule sta ); ! TO POINT TO THE M ODULE 
if not [onserecess seopul torte? then return false; ! AND GO PROCESS IT 
ink$gl_librecs = .ink$gl_librecs + .lnk$gl_objrecs - ! ACCUMULATE THE NUMBER OF 
.savedrecount; T RECORDS FROM L BRA ARIES 
nextsym = . Lnk$gl_ Libsym mj ! RETRIEVE NEXT IN LIST (SINCE THE 
ONE WE HAD MAY HAVE JUST BEEN 
i DEFINED BY THAT MODULE) 
end 
else 
begin ! IF THE SYMBOL WAS NOT 


at Status neq lbr$ rece 


hen 
signal (Lin$_readerr, 
ink$gl_curfil fabsa. filename], .status, .lbr$gl_rmsstv); 


pstatess sscnt = stmisscnt + 1; ! FOUND IN LIBRARY, COUNT 
nk$gl_libsym sym$v_gstmiss] = true; ANOTHER MISS AND SUPPRESS 
MORE Si arcies FOR IT 
, end; i END OF SYMBOL LIST LOOP 
end; 
Lnk$gl_libsym = 0; ! INVALIDATE THE SYMBOL POINTER 


THE CURRENT LIBRARY 
AY MBOL LIST, TURNING 


NOW FINISHED ogee FOR vere aene Mee ty IN 
MUST NOW GO DOWN WHAT IS LEFT OF THE UNDEFINE 
OFF THE GST MISS FLAG IN EACH SYMBOL DESCRIPT 


nextsym = (nk$gl_udflst; 
y -gstmisscnt neq 0 ! IF THERE WERE NO MISSES 


then 
while (nextsym = .nextsym Csym$l_udflink]) neq Lnk$gl_udflst ! FORGET IT 
nextsym Csym$v_gstmiss] = false; ! TURN OFF FLAG 
acct = .lnk$gl_futlsrch + .gstmisscnt; ! ACCUMULATE FUTILE SEARCH COUNT 
end; 
ink$gl_curfil Cfdb$v_selser] = false; : yd dt ig OO neienes SELECTIVE SEARCH FLAG 


return true; ' AN 
end; i END OF ROUTINE 


-TITLE LNK_ PROCSLIB 
-IDENT \vO0&- O00 
-PSECT SPLITS,NOWRT ,NOEXE ,2 
42 49 4C 24 53 59 5 0 P.AAA: .ASCII \SYSSLIBRARY: .EXE\ 
les : a5 Sobor 


LNK_PROCSLIB 
yO4=000 


An@woOPrD 


K 
LINKER. SRCJLNKPROL IB. : 2:1 (2) 


»PSECT SOWNS,NOEXE,2 


00000010 00000 SHRDEFEXT: 
00000000' 


00000001 


“ADDRESS 3 AAA : 
$6008 SAVEDRECOUNT : ; ' 


BLK 4 
0000C MODNAMINDEX : ' 
00000002 00010 GSTNAMINDEX: 
-LONG 2 3 
00014 GSTMISSCNT: 
-BLKB 4 


OFFC 


~PSECT S$GLOBAL$,NOEXE,2 
00000 LNKSGL ie ee 
00004 LNKSGL_LIBRECS:: 

-BLKB 
00008 LNKSGL_LIBSYM:: 

-BLKB 
QOO0C LNKSGL _NMODSEXP: : 
00010 LNKSGL_ -NMODSRCH: : 


ee oe a ae ee 


LNKSK_LIBBLOCKS== 1 
~EXTRN 


~ CRE 
AKO 
= 

wn 

=z 

Ss 

a 

— 

Zz 

ZA 

~n 

oO 

» 

= 

> 

_ 


TCLU, LNKSGC_UDFLST 
XTRN LNKSGWONUDFSYMS 


TRN sta nkSb DEALOLK 
TRN LNRSALLO OCLU TER 

TRN LNKSINSERT_CLU, LNKSALLOFDB 
TRN tNKSPROCSOBJ LNKSPOINTOBJ 


-PSECT SCODES,NOWRT,2 


00000 .ENTRY LNKSPROCSLIB, Save R2,R3,R4,R5,R6,R7,.RB.R9,-; 0261 
002 MOVAB LNK$GL_OBJRECS, R11 ; 
MOVAB ate UDFLST. R10 : 
19 MOVL ain REA : 
1 VAB ie RRa * ; 
1 MOVAB bie asTenAt R? : 
2 LNKSGL_LIBSYM, R6 : 


1973 sep- 138% 99: 4: $3 AX-11 Bliss-32 V4.0-7 Page 9 


; 10 
- -11 Bliss-32 V4. mi Page 
pbagesu® IESEEIBEE QQED:8EUSOLSPLAIC REN TG?Bo, a 
ain 5 000000006 00 9 MOVAB LNKSGL_CURFIL, R5 : 
0 C 5 SUBL2 #20, S$ * 
5 D 6 MOVL LNKS6 fpr P RO ; O33 
= ™ : TSTW NKSGW_ Lats iis ; 0336 
000000006 Hi sues : ; 
0 ~ rt 1$ BBs #6, 10(RO), 3$ ; 0338 
™ wl a 01 § 5° 4E 2$: BRW 1 Pees 
Gf Rae Bik, dette” aS 
7 00 ; 33 mOVUL 3 BE CRO). 4(SP) ; 
Oe §¢ AE OF iets PUSHAB 4(SP) ; 
000000006 0 FB 0056 CALLS n, LBRSSET_ INDEX ; 
33 6 50 booes MOVE twksen -GURFIL, RO 2 0344 
At ce a laa ans 
u Bee 06 fe tee ABS 
OF te PUSHAB Hits ; 
4 0109 3 8 7A BRW 14$ ; . 
0107 03 O97 4$: Ist MOD ULEPTR ont 
3 PTR) NEXTPTR > 0361 : 
0c ie 04 Ke Be $0084 nov 4 ODULEPT PT psc KEYDESC ; 036 
” $5 8e A 3 0008 mOVZUL rensescnk ; 0364 
08 i$ 9009 BEQL  -5$ oa ~— 
1F 50 B1 00094 CMPW sR, ; 
14 1B 00097 BLEQU 6$ ~~ 
50 DD 00099 5S: PUSHL RO ; 
ee a ce 7 
DD 
N$_LIBNAMLNG : 
zg mores Bee EL in imeem me 
Oc AE 1F 60 Boas MOVW 8=so#31, : 0371 
04 AE 9F OOOAD 6$ PUSHAB mop OLERTA 
os ag 3 bons MOVL NKSGL CURFIL, RO : 
08 Hy 24 Ad 3¢ it mOVZuL G(R 0)7 B(SP) ; 
000000006 - OS re fit CALLS a3. acu atl 7 
7 a r 
. $? $3 ct B CMPL eratus #LBRS URE YHOTEND ; 037 
000000006 8F fF by 5 shes, i ; rm 
Py 
"ERs | fee Bite RB 
0006 &F DD OF PUSHL aL INS NOSUCHMOD : 
68 resets 4 FB E CALLS LTB$SIGNAL ; 
1 f : : 0382 
: RSGL_RMSSTV 
000000006 Q po EA 7$: PUSHL Ho GL RMS 
1 DD fs PUSHL #1 : 


mM 6 
LNK_PROCSLIB 16-Sep-1984 00:21:45 AX-11 Bliss-32 V4.0-74 
V04= 1 ~300 71 38% 90 hi he LINKER. SRCJLNKPROLIB.B32;1 
; DD 000F4 PUSH n° 
68 re rg CALLS #5, LIBSSIGNAL 
40 1 F BRB 11§ 
0 6 MY FB 8S: MOVL LNKSGL_CURFIL, RO 
F 08 Ad F BLBC 1(RO)> 9$ 
4 AE SF 001 PUSHAB MODULERFA 
10 AE F 001 PUSHAB KEYDESC 
00000000V EF re 1 CALLS #2, LNKSADDIMAGE 
A 11 0010F BRB 11§ 
67 B 00 111 9$: MOVL § LNKSGL_OBJRECS, SAVEDRECOUNT 
4 Ab p 114 INCL —_ LNKSGL-NMODSEXP 
4 AE 9F 00117 PUSHAB MODULERE A 
000000006 00 07 FB OOTIA CALLS #1, LNKS$POINTOBJ 
04 AF 9F 00121 PUSHAB M REA 
000000006 00 Q re 124 CALLS #1, LNKSPROCSOBJ 
ogy HEBER BES 94 108 
50 FC AG 68 C1 o1 1 108: ADDLS LNK$GL_OBJRECS, LNKSGL_LIBRECS, RO 
FC AG 50 : €3 001 SUBL3 SAVEDRECOUNT, RO, LNKSGL_LIBRECS 
2 bp 0138 11$: | PUSHL MODULEPTR 
7E 10 A ¢ 4 D MOVZWL KEYDESC, -(SP) 
6 CO 00141 ADDL2. #5, (SPS 
000000006 0 2 FB 0144 CALLS #2, LNKSDEALBLK 
5 roe p60 O48 HOVL NEXTPTR, MODULEPTR 
50 65 p09 90151 12$:  MOVL LNKSGL_CURFIL, RO 
OA Ad 95 00154 TSTB 19<R0) 
03 19 01 7 BLSS 13 
01A7 31 00159 BRW 30$ 
OA Ad 01 8A 0015C 13$:  BICB2 #1, 10(RO) 
OC A7 D4 0160 CLRL. GSTMISSCNT 
52 6A DO 0016 VL ——sLNKSGL_UDFLST, NEXTSYM 
08 A? 9F 00166 PUSHAB 9s TMANTNOE 
04 «AE 24 Ad 3¢ 0169 MOVZWL 36(RO), 4(SP) 
04 AE F O16 PUSHAB 4(SP) 
000000006 0 02 FB 00171 CALLS 2, LBRSSET_INDEX 
3 38 4 00178 BL BS OrATUS. des 
33 DD HE PUSHL STA 
7E 65 14 ¢1 001 ADDL3 #20, LNKSGL_CURFIL, -(SP) 
oi DD 00184 14$:  PUSHL #1 
9 DD 001 PUSHL R9 
68 04 Fe 1 CALLS #4, LIBSSIGNAL 
01 ¢ 31 001 BRW 
5 65 DO OO18E 15$:  MOVL LNKSGL_CURFIL, RO 
0 0B Ad 191 BLBS 11(RO)> 16$ 
009 198 BRW 20 
50 gA f 198 16$: | MOVAB LNKSGL_UDFLST, RO 
D1 00198 CMPL NEXTSYR, R 
0 é 19 BNEG 178 
014 1A BRW 7s 
OF A2 9A OO1A3 17$: MOVZBL 15(NEXTSYM), RO 
50 5 C3 1A SUBL3._ RO, NEXTSYM, RO 
A OA f 1AB LBS 10¢NEXTSYM). 19S 
o¢ AE F Ad 9B OO1AF MOV7BW 15(NEXTSYM). KEYDESC 
10 AE 6 3 1B4 VAB (RO), KEYDESC#4 
04 AE 9F 001B8 PUSHAB MODULERFA 
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SISSSs 
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SAINI AA AMM ES & EEE 


NBSEE 


COMO 10 11 [O10 S| VPVUVUIMIO FP POP PMUNUMO PF POY 
—— 


Sraooruswua FO FWUDWOLSMOM IM MWOUMounmn 


000000006 bg 
0 


ROO*™OOOMDWPY OF OVOON MO "O99 9 $9 OW | D9 9 OF WDWOD M®MOVN WNT OOD "MO 


OWT OOMMS OOO OO @IOMS $9 OF W" DWI MO 90299 $9 S$ TING SMO TOW OOOMO "OWT O 


MOPWOM WN OM OL 9 FOW MDOIWNS SP NLENMOEOY SS 


SOOSOCOSOCOSOSOOSOSOOOSOOSOOOOOOOOOOOOOOOoOoOoOoOO 


SOOoOQoooooooooooooooooooooooooocoooo 


PUSHAB 
M 


USHAB 


pu198¢ 12:40:34 ECTKERSSRESLAKPROL 18.682; 1 


KEYDESC 
Hig San" RO 


’ "Lops. goxur. KEY 


#4, LBRSSEARCH 
STATUS, 19$ 


STATUS 
#20, LNKSGL_CURFIL, -(SP) 


RO 
#4, LIBSSIGNAL 
STATUS, #LBRS_KEYNOTFND 
LBRSGL_RMSSTV 
STATUS 
#20, LNKSGL_CURFIL, -(SP) 
Re LIB$SIGNAL 
(NEXTSYM), NEXTSYM 
NKSGW_NUDFSYMS 
$ 
NEXTSYN. pENK$6L IBSYM 
LNKSGL 
NEX NTSvRS RDS 
LAKSGL cy REIL. RO 


-_——§ mE 


monon DBU—"\ NZ 


Oem 


é 


nh 


; Routine Size: 785 bytes, Routine Base: S$CODE$ + 0000 


; 424 


0537 1 
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LNK_PROCSLIB 18-5 Sep AX-11 Bliss-32 V4.0 Page 13 
V04=0 14-Sep 71382 99: 4; 32 LINKER. SRCJLNKPROLIB. aS, :1 ° 3} vO 
000000006 9 F 1 CALLS 3, LBRSLOOKUP_KEY ; : 
D MOVL RO, STATUS : : 
C E B BLBC = STATUS, 24$ : ; 
08 Ab 6 ; INCL — LNKSGL_NMODSRCH : ; 
67 - 68 pd } MOVE poout eR OBJRECS, SAVEDRECOUNT : : 
000000006 00 Of FB 7 CALLS ytNspomntoBy F ; 
04 AE OF E PUSHAB ie 3 ; 
000000006 0 Q1 FB Al CALLS NSPROCSOB. 8 ‘ 
6 0 € AB BLBC : : 
50 FC OA 68 ¢ A ADDL Cetsée OBJRECS, LNKS$GL_LIBRECS, RO : ; 
FC A ; ¢ B SUBL3 SAVEDRECOUNT, RO, LNKSGL_LIBRECS ; : 
4 og B MOVL NKSGL_LIBSYM, NEXTSYM : : 
000000006 8F $3 b BA 248: CPL TATUS, #LBRS_KEYNOTFND : : 
000000006 99 bd tS PUSHL LBRSGL_RMSSTV : : 
7E 65 14 1 a) ADDL #20, LNKSGL_CURFIL, =(SP) : F 
9! DD OO2CF PUSHL # g : 
9 OD 8 D1 PUSHL R9 3 ; 
68 05 FB 002D3 CALLS #5, LIBSSIGNAL ; : 
Oc a7 D D6 258 INCL  GSTMISSCNT ; : 
50 66 D 09 VL LNKSGL LIBSYM, RO : : 
0c AO 01 8 D BISB2 TRO) ; : 
FF4A 31 OO2E § $: 3 ° 
66 p4 O2E3 27S: CLRL — LNK$GL_LIBSYM : : 
52 6A O2E MOVAB LNKSGL~ UDFL LSI NEXTSYM : 3 
51 OC A? DO O02E MOVL STMISSC SSCN ri ; : 
11 13 OO2EC BEQL $ ; : 
52 62 00 00 EE 28$: MOVL (NEXTSYM), NEXTSYM : ; 
6A 9E OOF MOVAB = LNKSGL UDELST, RO ; ; 
50 52 D1 002F4 CMPL NEXTSYA, R : 3 
06 13 002F7 BEQL : : 
OC A2 01 BA 0 9 BICB2 #1, 12(NEXTSY™) ; : 
Ef 11 FD BRB : : 
FB Ab 1 ¢O 00 44 94 $ ADDL2 Ri, LNKSGL FUTLSRCH 3 : 
50 65 Be } 0$: MOVL LNKSGL CURFIL, R ‘ 3 : 
OA AO 08 A BICB2 #8, 10TR : : 
50 1 60 6 A31$: MOVL #1, RO : : 
4 0D RET 3 . 
50 04 00 OF 32$: CLRL = RO ; ; 
04 0031 RET ; : 


NS ) 


voe2000 1EsSe719H6 QU:EH:4E  WMaLUAPLARSCRE NS 967%. Page hy 


: 436 538 J global routine (nk$bintin (asctin, bintin) = | 
: 4 8 228 ' — 
> 429 541 i THIS ROUTINE CONVERTS A DATE/TIME STRING FROM A MODULE 
: 430 4g i HEADER TO BINARY 
; 431 4 i | 
; 4 : 44 | INPUTS: 
> 434 0346 i ASCTIM ADDRESS OF 17-BYTE ASCII DATE/TIME | 
; 4 5 0547 e BINTIM ADDRESS OF QUADWORD TO STORE BINARY TIME 
Mt § 249 ie 
: 038 af ~~ block {d bin, byte] 
Py meces Cc Ss Ss el, 
3 at $226 timestring : vector £$§- Byt ej; . 
> 46 0554 ch$move (17, ,asctim tinestring) : ' COPY ASCII STRING FOR DATE/TIME 
> 44 0555 chSTiLL (Ke 10 6, atimestring (174) i FILL REST OF STRING WITH O'S 
: 444 0956 tinestring [ 173 = i FIX PUNCTUATION AS REQUIRED 
> 445 055 timestrin at = x ek 
; 446 0558 timedesc Fasc su. length = 23; 
> 447 0559 timedesc Cdsc$a_pointer] = Presets ing; 
: 468 0500 Sbintim (timbuf"= timedesc, timadr = .bintim); 
s 449 0561 return true 
; 450 0562 #1 end; 
.EXTRN SYSSBINTIM 
003¢ 00000 ENTRY LNKSBINTIM, Save R2,R3,R4,R5 : 0538 
SE 20 cs 9000¢ SUBL ; 
be 04 BC 11 : 0 00 MOVC * @ASCTIM, TIMESTRING : 0554 
06 30 6£ ¥ 00 C 0A MOVC a0, (SP), #68, #6, TIMESTRING+17 : 0555 
11. AE 3A 90 00011 MOVB #58, TIMESTRING+17 : 0556 
146 AE Hs 90 00015 MOVB = #4 g. TIMESTRING*20 : 0557 
18 AE 1 a 0019 MOVW #23, TIMEDES : 0558 
1 AE 6E 9E 00010 MOV TIMESTRING, TIMEDESC+4 : 0559 
08 AC DD 00 1 PUSHL BINTIM : 0560 
000000006 ” : re 09 : CALS de SYSSBINTIN : 
98 8 00 002E MOVL #1. RO > 0561 
4 00031 RET : 0562 


; Routine Size: 50 bytes, Routine Base: SCODES + 0311 
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; Routine Size: 
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Anglia ink$addimage (moduledesc, modulerfa, retcludesc, foundflag) = 
BRARIAN WHEN IT F 


Ll IN 
GLOBAL SYMBOL JUST LO 
IMAGE HAS ALREADY BE 
oc 

N 

R 


OL 
a 


RARY READING 


E 
IP 
(NULLPARAMETER), THEN 
TO KS ARE CREATED, 


R AND FILE DESCRIPTO 


= 
m> 


S DONE, 
HOWEVER. 


IF RETCLUD E 
THE A 


—m 


A $ hy ADDRESS OF A Lonewone TO STORE 
T TOR ADDRESS. NOTE THAT THE ONLY WAY 
oe TO CHECK FOR RETCLUDESC 


VESTED IS 
INE ALWAYS RETURNS FALSE TO STOP LBR SEARCH 
T IS THE ADDRESS OF A LONGWORD TO STORE 


SS 
ER 
IM 
TH 
SE 


9 

' 

! 

' 

' 

' 

' 

IF MODULERF 
1 T 
' 

i D 
D 
G 
§ 
! 

' 

' 

! 


routine compareclu (keydesc, clunode) = 
begin 


LOCAL ROUTINE TO COMPARE A NAME OF NODE WITH ANOTHER NAME 


map 
keydesc : ref block f. byte], ' POINTER TO STRING DESC 

' ‘tomes : ref block bytel; ! NODE FOR DESCRIPTOR BE 

oca 

clu: ref block C $5, ty 

clu = .clunode Cnode$(_ptr ! POINT TO CLUSTER DESCRIPTOR 

return ch$compare (. heveese "Cdsc$w length), -keydesc Cdsc$a_pointerJ, .clu Cclu$Sb_naming], 

clu Celu$St _name)) 
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001C 00000 COMPARECLU: 
WORD Save of? R3,R4 
MOVL CLUNO + fb 

06 0006 MOVL | (R NO. 
A MOVL West. cy 
MOV ZBL 5 Haat * R2 

MOVL @ by? 
00 04 3 CMPCS (RI), a6(R1), #0, R2. 93(CLU) 
D BGTRU 1$ 
F C ai, RS 
é 1$: MOVL 4. RO 
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MAIN BODY OF LNKSADDIMAGE 


map 
moduledesc : ref block C, byte). 
modulerfa : ref block C, byte], 
retcludesc : ref vector [, long]. 
foundflag : ref vector C, longJ; 

builtin 

nul lparameter; 

Local 


fbrar ° 
mhdbuf : block Clor$c_maxhdrsiz, byte}. ! BUFFER TO READ MODULE HEADER 
mhdbufdesc : block Cdsc$c_s_bin, ogee » |! STRING DESCRIPTOR OF MHDBUF 
bufdesc : block Cdsc$c_s_Blh, bytel, 
prevclu : ref block (, byte], ! POINTER TO PREVIOUS CLUSTER 
pein : a | dpess ° Pree ° 

astclu : re ck C, el, 

fdb : ref block c. byied: ! POINTER TO CREATED FDB 
clu : ref block C, byte; ! AND CLUSTER 


SEARCH THE CLUSTER LIST TO SEE IF THIS SHAREABLE IMAGE ALREADY REQUESTED 


if not nullparameter (3) then retcludesc (0) = 0; 
if not nullparameter (4) then foundflag [0] = 0; 
Hi LibSlookup_tree (ink$gl_clutree, .moduledesc, compareclu, clu) ! LOOK IT UP 
en 
begin 
if not nullparameter (4) then foundflag (0) = 1; 
if not pul pereneter (3) then retcludesc [0] = .clu Cnode$l 
re ink$k_stopsearch; : 
end; 


; IMAGE NOT REQUESTED. READ AND VERIFY MODULE HEADER. THEN CREATE CLUSTER DESCRIPTOR 


if (read_library = not nullparameter (2)) ' SET FLAG IF PARAMETER SPECIFIED 
en 
begin 
7 not (status = lbr$find (fref (.lnk$gl_curfil Cfdb$Sw_ifi]), .modulerfa)) 
en 


begin 
signal ((Lin$_Libfind and_not sts$m_severity) or sts$k_error 


ink$gl_curf fdb$q_f 
return inkSk_stopsearch; 
end; 


bufdesc Cdsc$w_length] = .lnk$al_rab Crab$w yee) 
C 
F 


! RETURN TO STOP SEARC 


bufdesc Cdsc$a_pointer) = .ink$al_rab Crab$(_ubf); 
if not (status = lbr$get_record (fref C. tnkSot ur 
! READ-FIRST RECORD OF OBJ MODULE 


then 


begin 
sional (Lin$S_readerr, 1, I(nk$gl_curfil Cfdb$q_filename], .status, .lbr$gl_rmsstv); 


peri 
RETURN FALSE f0 STOP SEARCH IF FOUND 


! POINT TO THE MODUL 


4, ! REPORT ERROR 
-modulerfa or tast vbn], .modulerfa (rfaSw_offseti, -moduledesc Cdsc$a_pointer] - 1, 
l filename), LinS_format «Status, .lbr$gl_rmsstv); 


BUFFER DESCRIPTOR TO READ OBJ MODULE HEADER REC 
fil Cfdb$Sw_ifi)). puldete. bufdesc)) 
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=1984 00:21:45 AX-11 Bliss-32 V4.0-74 Pa 
Pr1e8e foicorde | Ye TNneR SaeSi Amphoe ye 68251 v: 
return Lnk$k_stopsearch; 


end; 
mhdbufdesc Cdsc$w_length] = Lbr$c_maxhdrsiz; 

' READ LIBRARY MODULE HEADER...SET UP BUFFER DESCRIPTOR 
ehdbuféesc -SacSa pointer: = mhdbuf; 


f not (status = Cbr$set_module (%ref (.lnk$gl_curfil Cfdb$w_ifi]), .modulerfa, ! READ IT NO 
mhdbufdesc, mhdbufdesc)) 
then 
be 
si 
re 


en 


urn Lnk$k_stopsearch; 


in 
gna (Lin$_readerr, 1, Ink$gl_curfil Cfdb$q_filename], .status, .lbr$gl_rmsstv); 
d 


hdrec = .bufdesc Cdsc$a_pointer] : block C, byte], ! NAME THE penors RECORD 
= hdrec Cmhd$t_name] + .hdrec Cmhd$b_namin 5 : vector C byte : 
' AND THE MODULE ID PART OF HEADER 
if .hdrec Cobj$b_rectyp] neg obj$c_hdr ! MAKE SURE IT LOOKS LIKE AN OBJ MODULE HEADER 
re or .hdrec Cobj$b_subtyp] neq obj$c_hdr_mhd 
en 


begin 
signal (LinS_readerr, 1, I(nk$gl_curfil Cfdb$q_filename], Lin$_format, 0); 
ee Lnk$k_stopsearch; 


end; 
oa ! OF READ_LIBRARY 
NOW ALLOCATE A CLUSTER DESCRIPTOR FOR THE NEW SHAREABLE IMAGE 
ink$allocluster (clu, 1); ! CREATE CLUSTER DESCRIPTOR, DON'T LINK INTO LIST 
if not nullparameter (3) i TF CALLER WANTS DESCRIPTOR ADDRESS 
wn etc ludesc C0] = .clu; ! THEN RETURN IT 
lastclu = .lnk$gl_curclu Cclu$l_lastclul; ! GET POINTER TO LAST IMAGE CONTAINED IN THIS ONE 
oF ptsstele neq 0 ! IF THERE IS ONE, INSERT AFTER IT 
begin 


nextclu = .lastclu Celu$l_nxtclul; 


lastclu ep tase nate tus = .clu; 
clu Cclu$l_prevcluj = .lastclu; 
— 
€ 
begin ! THIS IS THE FIRST, INSERT AFTER CURRENT CLUSTER 
nextclu = .lnk$gl_curclu Cclu$l_nxtclul; 
Ty curclu Celu$l_nxtclu] = .clu; 
clu CcTuSt_prevclud = .ink$gl_curclu; 
end; 
4 (clu Celu$t_nxtclu) = .nextclu) neq 0 ! SET PREVCLU IN NEXT CLUSTER 
en 
nextclu Cclu$l_prevclu] = .clu 
else 
ink$gl_lastclu = .clu; ! OR MAKE THIS THE LAST CLUSTER IF IT IS 
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1 
14-Sep-1 LINKER. SRC LNKPROLIB. 5 2:1 (4 
ink$gl_curclu Cclu$l_lastclu] = .clu; ' MAKE THIS ine atts LAST CLUSTER 
clu Fetu vushr ng] ="true; LAS chus tee HAREABLE IMAGE 
clu Celu$v_intclu) = true; cB. AS INFERNALEY CREATED 
ch$move ((Zlu Cclu$b_naming] = .moduledesc Case wW wa Length hj) 
DULE NAME INTO CLUSTER DESCRIPTOR 
»moduledesc my; pointer), clu Cclu$t deastis 
inkSinsert_clu (.clu) “! INSERT CLUSTER INTO CLUSTER TREE 
i. sree library ! IF READING LIBRARY, SET MORE INFO INTO CLUSTER DESCRIPTOR 
he in 
bind 


hdrec = .bufdesc Cdsc$a gbginterd block C, byte2. ! a Als WeAnER RECORD 
mhdid = hdrec C(mhd$t_name hdrec tnhdsb, naming]: oyte 

D THE MOBULE 1D PART Coe EADER 
mhdgsmatch = ehere 


mhdcredat = mhdid C } + Rise (0) + ‘4 : vector f. byte], ! AND THE CREATE DATE/TIME 
modheader = habutdees tdsc$a speinter : biock iy ' THE LIBRARY MODULE HEADER 
modgsmatch = modheader ([mhd$t_objident] : long; THE GSMATCH STORED IN LIBRARY MODULE HEADE 


ely telust (mhdcredat, clu celta. credatl); ! CONVERT CREATION DATE/TIME FOR LATER 
clu CeluSl_gsmatch] = .modgsmatch: | SAVE THE GSMATCH FOUND IN THE LIBRARY 
end; 


; ALLOCATE AN FDB 


LnkSal Lofdb (fdb) 
clu Celus fsttdb bd = clu CeluSt_lstfdb? = 


inksat Lobe db Cfdb$w_usrnamlen) = ‘aadulaaiel Cdsc$w Lengthy), fdb Cfdb$l_usrnamadr]); 
ch$move ( db Cfdb$w_usrnamlen], .moduledesc Cdsc$a_pointer], .fdb Cfdb$l_usrnamadr)); 


if .lnk$gl_ctlmsk Clnk$v_intfil] 

en 
ch$move (dsc$c_s_bln, shrdefext, fdb Cfdb$Sw_defnamlen]) ! SET DEFAULT FILENAME STRING 
e 


THE DEFAULT FILENAME STRING CONSISTS OF THE RESULTANT 
FILENAME OF THE CURRENT FILE WITH THE EXTENSION SET TO ‘*.EXE"’ 


if (ptr = ch$find_ch (.tnk$gl_curfil Cfgbsyd defna mien), ! FIND END OF DIRECTORY 
eb -lnk$gl_cirfil Cfdb$i-defnamadr ascii 4 )) eql 0 
en 


ptr = ch$find_ch (.lnk$gl_curfil Cfdb$Sw_defnamlen], .lnk$gl_curfil Cfdb$l_defnamadr], Zascii'>') 


ptri = chS ting doch {5 - kahSei., curfil Cfdb$w y*pinanlon? - fate -lnk$gl_curfil Cfdb$l_defnamadr)), 
get N FIND cy! OF et NSION 
ink$a toouR t pie - .lnk$gl_curfil Crabs cde tnanadr Cfdb i rfetnes adr)); 
1k E BLOCK “to! tat MODI NAME (+4 FOR .EXE) 
OF 


ptr = ch$move (.ptri - .lnk$gl_curfil Ctdbs cetacean ral fdb$l_defnamadr], 
MOVE IN FIRST “PART 


str) ! SET THE EXTENSION 
fab’ Ctdbst _defnamadr); | COMPUTE LENGTH OF DEFAULT NAME 


“fad fdb$l rer vagete 
tri = ch$move T 
Rab CfdbSw_ Seleenlont = .ptr 


~EXE! ) 
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7 : 
$8 ch$move (dsc$c_s_din, Ink$gl_curfil Cfdb$q_filename], fdb Cfdb$q_libnamdsc)); : 
771 | COPY LIBRARY FILE DESCRIPTOR 3 
re fdb Cfdb$v_shr] = true; i FLAG FILE AS SHAREABLE IMAGE : 
77 return Lnk3k_stopsearch i RETURN FALSE TO STOP SEARCH : 
774 end; i OF ADDIMAGE : 
«PSECT $PLIT$,NOWRT,NOEXE,2 ; 

45 58 45 2€ 00010 P.AAB: .ASCII \.EXE\ : ; 

<PSECT $CODE$,NOWRT,2 : 

OFFC 00000 ENTRY LNKSADDIMAGE. Save R2,R3,R4,R5,R6,R7,R8,R9,-; 0563 : 

5B 000000006 1 8F DO 00002 MOVL #LINS_FORMAT, R11 : : 

5A 000000006 00 9€ 00009 MOVAB LBRSGC_RMSSTV, R10 : : 

59 000000006 00 9€ 0019 MOVAB ENKSGL “CUR FIL, R ; : 

5 FF64 CE 9E 0001 MOVAB Se CSP) SP : ; 

0 6¢ 91 0001C CMPBs«C AP), #3 + 0622 3 

08 iF OOOTF BLSSU ; : 

0c AC d3 0021 TSTL  12¢AP) : : 

03 13 00024 BEQL «6=s:«1$ : : 

0C BC D4 00026 CLRL @RETCLUDESC : ; 

04 6C 91 00029 18: CMPB  =s«CAP), «#4 : 0623 : 

08 iF 0002C BLSSU 2$ : : 

10 aC 03 002E TSTL 16(AP) : : 

03 13 00031 BEQL ©. 2$ ; : 

10 BC 04 00033 CLRL  @FOUNDFLAG : : 

04 AE 9F 00036 28: PUSHAB > 0624 : 

9— AF 9F 00039 PUSHAB COMPARECLU ; ; 

58 04 AC DO 0003C¢ MOVL §§ MODULEDESC, R8 : ; 

58 DD 0004 PUSHL R : : 

000000006 00 9F 0004 PUSHAB LNKSGL CLUTREE : ; 

000000006 99 4 FB 904 CALLS 4&4, ames TREE : : 

0 F O4F BLBC RO ; : 

4 6c 1 0005 CMPB  s«( AP), @ : 0627 : 

1F 00 BLSSu 3 ; : 

10 ac 05 00 TSTL  16(AP) : : 

10 1 h Bbvc 1, @FOUNDFLAG : : 

8S 6¢ é 60 3$: CMPB p), * + 0628 : 

1F BLSSU : : 

Oc ac D TSTL  12¢AP) : : 

68 1 BEQLSs«8 : : 

50 4 AE D A MOVL chy RO ; : 

oc BC i p MOVL 10(RO), @RETCLUDESC ; : 

6 BRB 8 ; 9629 : 

02 ¢ 91 00075 4$: CMPB ss AP), #2 > 0634 ; 

tf 7 BGEQU 5$ ; : 

56 1 D 7A MOVL #1, R6 ; : 

9 11 7D BRB 6$ ; : 

6 D4 0007F 5S: CLRL = RB ; : 


LNK_PROCSLIB 16-50 Sep-1984 1: AX-11 Bliss-32 V4.0-7 Page 20 
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08 ac D 1 TSTL AP) ; : 

1 BNEG : ; 

1) INCL Re : . 

56 6 D 6$: MCOML READ_LIBRARY : ; 

0 6 : 8 BLBS READ. LIBRARY, 7$ : : 

00cc . BRW 14$ : ; 

52 08 AC 0d0 7$: MOVL " DULERFA, R2 + 0638 ; 

52 OD 93 PUSHL : ; 

50 69 D0 0009 MOVL ie @ CURE IL, RO : ; 

04 AE 34 AO 3¢ O9A MOVZWL : ; 

4 AE 9OF O009F PUSHAB : ; 

000000006 99 F Ag CALLS ie. "Lanse ino : ; 

D A MOVL TUS : : 

29 E8 OOOAC BLBS ST Tus. $ : ; 

A DD OOOAF PUSHL LBRSGL_RMSSTV + 0643 ; 

3 pd 00081 PUSHL STATUS ; : 

E D4 0008 CLRL. = (SP) : ; 

5B OD 08 PUSHL R11 : ; 

7E 69 14 cl 0B ADDL #20, LNKSGL_CURFIL, -(SP) : ; 

7E 04 As 01 ¢ 0088 SUBL 4(R8), =(SP) + 064 ; 

7E 04 Ag t 000C MOVZWL 4(R2), -($P) > 064 ; 

62 DD 000C4 PUSHL (R2) : ; 

4 DD O0¢6 PUSHL #4 : ; 

00000000* 8F OD it PUSHL occu Ins 7 A nadia : 3 

000000006 00 A FB 00 cE CALLS #10, LIBSSIGNA : : 

01DA 31 00005 8$: BRW + 0644 ; 

0c AE 000000006 99 89 00D8 9$: MOVW free _RAB+32, BUFDESC + 0647 3 

10 AE 000000006 00 oD O0E0 MOVL _ LNKSAL~RAB+36, BUFDESC+4 + 0649 : 

OC AE 9F OOUE PUSHAB BUF DES st : 0650 : 

10 AE 9F OO0EB PUSHAB BUFDESC : ; 

50 6 pO OOEE MOVL NKSGL L CURE LL RO : : 

08 AE 24 AO 3C 000F1 MOVZWL 36(RO) : ; 

8 AE OF OOF PUSHAB : ; 

000000006 0 9 FB OOF CALLS 3, LBRSGET_RECORD : : 

5 0 D 190 MOVL RO STAT U : ; 

2A 5 E9 001 BLBC ‘STATUS, 10$ : : 

16 AE 80 BF 9B 00106 MOVZBW F128. an DBUF DESC > 0657 ; 

18 AE 1C AE 9E 91 MOVAB MHDBUF, MHDBUFDESC+4 : 0659 ; 

14 AE 9F 0011 PUSHAB MHDBUFDESC : 0660 : 

18 AE 9F 0011 PUSHAB MHDBUFDESC : : 

5 bp 118 PUSHL R : : 

50 6 11 VL NKSGL_CURFIL, RO : : 

Oc AE 24 AO 3¢ 0011 MOVZWL (RO)> 12¢SP5 : : 

C AE F 001 USHAB 12(SP) : : 

000000006 99 FB 001 CALLS #4, LBRSSET_MODULE : ; 

9 DO 0012A VL 0; STATUS : ; 

06 E8 001 BLBS STATUS, 11$ ; : 

6A DD 00130 10$:  PUSHL CBRSGL RMSSTV > 0664 : 

3 pp 1 PUSHL STATUS : ; 

11, 11 «001 BRB 3$ ; : 

50 10 A p 136 11$: MOVL BUFDESC+4, RO + 0669 ; 

: 13A TSTB —s-_ (RO) : 0672 3 

1 13¢ BNEQ 12$ ; : 

01 ad 95 001 TSTB =: 1 (RO) > 0673 : 

1A 13 0014 BEQL 14$ : : 

7E 04 00143 128: CLRL <-(SP) > 0676 ; 

5B DD 0014 PUSHL R11 : : 


7E 
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4(NEXTCLU) 


NKS$GL_LASTCLU 
6(RO) 
88(R7) 
RO 
RO, 92(R7) 
RQ, a4(R8), 93(R7) 


#1, LNKSINSERT_CLU 
READ LIBRARY, 20$ 
BUFD SCs4, ri 
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LNK_PROCSLIB 16-Sep-1984 00:21:45 AX=11 Bliss-32 V4.0-74 P - 
V04=000 eH Iet) PR a Ctr TOR PP age 78 V 
08 00 1 A BBC #3, LNKSGL_CTLMSK+1, 21$ : 074 : 
16 Ab itddattdl EF os ‘ MOVES ts, SHRDEFEXT, $5 cré) : Oe: ; 
5 0 21$:  MOVL —LNKSGL_CURFIL, R2 * 0755 ; 
18 B2 14 3 SD OF Bh 49 Loc¢ #3, bOtRD) 824 (R2) : ° ; 
¢ of 49 CLAL ee : : 
* > $2 dose “*** = Eneg «Bag PTR : 0756 
18 82 16 A2 $i $0586 Locc #62, 20(R2), @24(R2) : 0758 ; 
if 0 ' BNEQ  23$ : : 
D 8 CLRL R1 : 3 
53 1 00 A 238: MOVL. 1, PTR : ; 
50 18 A2 53 ¢ 0 as: SUBL3 PTR, 24(R2), RO : 0760 ; 
51 14 Ae 0 6 MOVZWL 20(R2), RI : ; 
50 : 6 ADDL2 1, RO : ; 
63 50 A 0026 LOCC #46, RO, (PTR) : ; 
12 00260 BNEQ  25$ : ; 
D4 00 oF CLRL sR : : 
“i! 18 AS SF 00874 Pustias Batrey” : 0762 ; 
51 57 18 8 C3 00277 SUBL3 stir), PTR1, R1 : : 
04 Al SF O027¢ PUSHAB 4(R1) : ; 
000000006 00 08 FB OO027F CALLS #2, LNKSALLOBLK : : 
50 69 DO 00286 MOVL LNKSGL_CURF L, RO 0764 : 
51 57 18 A0 ; 00289 SUBL 4(RO); PTR1, R1 : : 
18 86 18 80 51 0028E MOVCS R1, a24(RO), @24(R6) : 0766 ; 
$7 000 a OP ereee Halk Laas eat pal oa! 
16 Ab 57 18 Ad A3 0029F SUBW3  24(R65, PTR1, 20(R6) : 0768 : 
50 69 OD O2A5 26$: MOVL LNKSGt. + ie RO ; 0770 3 
1c Ab 14 AO 08 : O2A8 MOVC3 #8, 20TRO), 28(R6) : ; 
OA Ab 04 88 00 AE BISB2 #4. 10(R6) : 0772 : 
50 D4 002B2 27$:  CLRL RO > 0774 ; 
04 00284 RET : : 
; 0775 : 
: 665 0776 1 end 3 
s 0777 0O eludom : 
.EXTRN LIBSSIGNAL ; 
: PSECT SUMMARY 3 
3 Name Bytes Attributes ; 
: SPLITS 0 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
> $SOWNS 4 NOVEC, WRT. RD .NOEXE,NOSHR. LCL, REL. CON.NOPIC.ALIGN(O) ; 
+ $GLOBALS NOVEC, WRT, *NOEXE,NOSHR, LCL, REL. CON.NOPIC.ALIGN(O) ; 
: $CODES 1566 NOVEC.NOWRT, RD; EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) : 
te, AOE a NOVEC.NOWRT.NORD ;NOEXE.NOSHR, LCL. ABS. CON.NOPIC.ALIGN(O) : 


Library Statistics 


cooncsss Syabols soeece ce Pages Processing 
File Total Loaded Percent Mapped Time 


RSET SYSLIBISTARLET.L32;1 977 $s 9 581 90: 


: LINKER.OBJ JDATBA AS .L32;1 53 28 


: COMMAND QUALIFIERS 
é BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKPROLIB/OBJ=OBJ$:LNKPROLIB MSRC$:LNKPROLIB/UPDATE=(ENH$:LNKPROL IB) 
667 0778 O ! End of module 
; Size: 1566 code + 64 data bytes : 
Run Time: 00:28.7 


Elapsed Time: 01:01.8 
Lines/CPU Min: 1624 
Lexemes/CPU-Min: 17402 
pane? 9 Used: 242 pages 
Compilat 


ion Complete 
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